home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / C and C++ / Libraries / SAT / HeartQuest sample ƒ / sHeart.p < prev    next >
Encoding:
Text File  |  1993-09-19  |  2.9 KB  |  116 lines  |  [TEXT/PJMM]
  1. {===============================================}
  2. {================= Heart sprite unit ================}
  3. {===============================================}
  4.  
  5. { Example file for Ingemars Sprite Animation Toolkit. }
  6. { © Ingemar Ragnemalm 1992 }
  7. { See doc files for legal terms for using this code. }
  8.  
  9. unit sHeart;
  10.  
  11. { Sprite unit. A sprite unit should include the following routines:}
  12. { Init-procedure, that initializes private bitmaps}
  13. { Setup-procedure, that sets variables other than the standard ones set by MakeSprite }
  14. { Handle-procedure, to be called once per iteration until the sprite dies }
  15. { Hittask-procedure (optional), for advanced collission handling. }
  16.  
  17. interface
  18.  
  19.     uses
  20.         SAT, scores, sBonus, SoundConst, GameGlobals;
  21.  
  22.     var
  23.         batchcount: integer; { Number of hearts left on level }
  24.  
  25.     procedure InitHeart;
  26.     procedure SetupHeart (mp: SpritePtr);
  27.     procedure HandleHeart (me: SpritePtr);
  28.  
  29. implementation
  30.  
  31.     var
  32.         HeartFace: array[1..4] of FacePtr;
  33.         sofar: integer;
  34.  
  35.     procedure InitHeart;
  36.         var
  37.             ii: integer;
  38.             h: handle;
  39.     begin
  40.         for ii := 1 to 4 do
  41.             begin
  42.                 HeartFace[ii] := GetFace(135 + ii);
  43.             end;
  44.     end;
  45.  
  46.     procedure SetupHeart (mp: SpritePtr);
  47.     begin
  48.         mp^.face := HeartFace[1];
  49.         mp^.mode := rand(4) + 1; { ikonnummer }
  50.         SetRect(mp^.hotRect, -5 + 16, -15 + 32, 5 + 16, -5 + 32);
  51.         mp^.speed.h := Rand(7) - 4;
  52.         mp^.speed.v := Rand(7) - 4;
  53.         sofar := 0;
  54.     end;
  55.  
  56.     procedure HandleHeart (me: SpritePtr);
  57.         var
  58.             mp: SpritePtr;
  59.     begin
  60.         if me^.kind <> -2 then
  61.             begin
  62.                 me^.task := nil;
  63.                 addscore(10);
  64.                 SATSoundPlay(PlinkSndH, 1, false);
  65.                 batchcount := batchcount - 1;
  66.                 sofar := sofar + 1;
  67.  
  68.                 if sofar mod 5 = 0 then
  69.                     if rand(10) < 5 then
  70.                         mp := NewSprite(-4, -31, Rand(offSizeV - 64) + 32, @HandleBonus, @SetupBonus, nil)
  71.                     else
  72.                         mp := NewSprite(-4, offSizeH, Rand(offSizeV - 64) + 32, @HandleBonus, @SetupBonus, nil);
  73.             end;
  74.  
  75.         me^.mode := me^.mode + 1;
  76.         if me^.mode = 5 then
  77.             me^.mode := 1;
  78.         me^.face := HeartFace[me^.mode];
  79.  
  80.         me^.position.h := me^.position.h + me^.speed.h;
  81.         me^.position.v := me^.position.v + me^.speed.v;
  82.  
  83.         if me^.position.h < 0 then
  84.             begin
  85.                 me^.position.h := 0;
  86.                 me^.speed.h := -me^.speed.h;
  87.                 me^.speed.v := me^.speed.v + Rand(3) - 2;
  88.             end;
  89.         if me^.position.h > offSizeH - xsize then
  90.             begin
  91.                 me^.position.h := offSizeH - xsize;
  92.                 me^.speed.h := -me^.speed.h;
  93.                 me^.speed.v := me^.speed.v + Rand(3) - 2;
  94.             end;
  95.         if me^.position.v < 0 then
  96.             begin
  97.                 me^.position.v := 0;
  98.                 me^.speed.v := -me^.speed.v;
  99.                 me^.speed.h := me^.speed.h + Rand(3) - 2;
  100.             end;
  101.         if me^.position.v > offSizeV - 32 then
  102.             begin
  103.                 me^.position.v := offSizeV - 32;
  104.                 me^.speed.v := -me^.speed.v;
  105.                 me^.speed.h := me^.speed.h + Rand(3) - 2;
  106.             end;
  107. { It shouldn't be totally still! }
  108.         if (me^.speed.v = 0) and (me^.speed.h = 0) then
  109.             begin
  110.                 me^.speed.h := Rand(7) - 4;
  111.                 me^.speed.v := Rand(7) - 4;
  112.             end;
  113.  
  114.     end;
  115.  
  116. end.